home *** CD-ROM | disk | FTP | other *** search
/ Virtual Vibrations / Virtual Vibrations.iso / mac / Virtual Vibrations / STAR.DXR / 00016.ls < prev    next >
Encoding:
Text File  |  1994-10-28  |  2.5 KB  |  106 lines
  1. on enterFrame
  2.   global voice
  3.   if the soundEnabled = 0 then
  4.     puppetSprite(48, 1)
  5.     set the castNum of sprite 48 to cast "SoundOff2"
  6.     updateStage()
  7.   end if
  8.   puppetPalette("movie palette")
  9. end
  10.  
  11. on mouseDown
  12.   if (the clickOn >= 2) and (the clickOn <= 20) then
  13.     BUTTONDOWN()
  14.   else
  15.     if the clickOn = 48 then
  16.       puppetSound("click")
  17.     end if
  18.   end if
  19. end
  20.  
  21. on mouseUp
  22.   if (the clickOn >= 2) and (the clickOn <= 48) then
  23.     if soundBusy(2) then
  24.       sound stop 2
  25.     end if
  26.     if the clickOn = 2 then
  27.       playhidden()
  28.     else
  29.       if the clickOn = 3 then
  30.         playwickmov()
  31.       else
  32.         if the clickOn = 4 then
  33.           playchel()
  34.         else
  35.           if the clickOn = 5 then
  36.             playbevhill()
  37.           else
  38.             if the clickOn = 6 then
  39.               playcatmov()
  40.             else
  41.               if the clickOn = 7 then
  42.                 playbetray()
  43.               else
  44.                 if the clickOn = 8 then
  45.                   playsleep()
  46.                 else
  47.                   if the clickOn = 9 then
  48.                     playmurph()
  49.                   else
  50.                     if the clickOn = 10 then
  51.                       playwire()
  52.                     else
  53.                       if the clickOn = 11 then
  54.                         playmikki()
  55.                       else
  56.                         if the clickOn = 12 then
  57.                           playdecep()
  58.                         else
  59.                           if the clickOn = 13 then
  60.                             playfisher()
  61.                           else
  62.                             if the clickOn = 14 then
  63.                               playdrive()
  64.                             else
  65.                               if the clickOn = 15 then
  66.                                 playdivorce()
  67.                               end if
  68.                             end if
  69.                           end if
  70.                         end if
  71.                       end if
  72.                     end if
  73.                   end if
  74.                 end if
  75.               end if
  76.             end if
  77.           end if
  78.         end if
  79.       end if
  80.     end if
  81.   end if
  82.   if (the clickOn >= 17) and (the clickOn <= 48) then
  83.     puppetSprite(48, 0)
  84.     if the clickOn = 17 then
  85.       go(the frame + 1)
  86.     end if
  87.     if the clickOn = 18 then
  88.       HIDEBUTTON()
  89.     end if
  90.     if the clickOn = 19 then
  91.       ORDERBUTTON()
  92.     end if
  93.     if the clickOn = 20 then
  94.       go("main")
  95.     end if
  96.   end if
  97.   if the clickOn = 48 then
  98.     CHANGESOUND2()
  99.   end if
  100. end
  101.  
  102. on exitFrame
  103.   global fixpal
  104.   go(the frame)
  105. end
  106.